home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egascr2.arc / EGA512.SCR < prev    next >
Encoding:
Text File  |  1986-08-05  |  465 b   |  28 lines
  1. N EGA512.COM
  2. A 100
  3. MOV    BL,[005D]    ; 1st Parameter
  4. AND    BL,03        ; Lower 3 bits 
  5. MOV    BH,[006D]    ; 2nd Parameter
  6. AND    BH,03        ; Lower 3 bits
  7. MOV    CX,BX        ; Save in CX
  8. SHL    BH,1        ; Shift BH left
  9. SHL    BH,1
  10. OR    BL,BH        ; Combine with BL
  11. MOV    AX,1103        ; Set block spec. 
  12. INT    10
  13. MOV    BX,0F12        ; Enable all planes
  14. CMP    CL,CH        ;   but only if 
  15. JZ    0124        ;   blocks are equal 
  16. MOV    BH,07        ; Otherwise low
  17. MOV    AX,1000        ; Enable planes 
  18. INT    10
  19. INT    20
  20.  
  21. R CX
  22. 2B
  23. W
  24. Q
  25.  
  26.  
  27.  
  28.